home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / gnu / gnu_smalltalk1_2.lha / mstmain.c < prev    next >
C/C++ Source or Header  |  1992-02-15  |  2KB  |  78 lines
  1. /***********************************************************************
  2.  *
  3.  *    Main Module
  4.  *
  5.  ***********************************************************************/
  6.  
  7. /***********************************************************************
  8.  *
  9.  * Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
  10.  * Written by Steve Byrne.
  11.  *
  12.  * This file is part of GNU Smalltalk.
  13.  *
  14.  * GNU Smalltalk is free software; you can redistribute it and/or modify it
  15.  * under the terms of the GNU General Public License as published by the Free
  16.  * Software Foundation; either version 1, or (at your option) any later 
  17.  * version.
  18.  * 
  19.  * GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20.  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 
  21.  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
  22.  * more details.
  23.  * 
  24.  * You should have received a copy of the GNU General Public License along with
  25.  * GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26.  * Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27.  *
  28.  ***********************************************************************/
  29.  
  30. /*
  31.  *    Change Log
  32.  * ============================================================================
  33.  * Author      Date       Change 
  34.  * sbb          1 Jan 92      Created from old mstmain.c (now mstlib.c)
  35.  *
  36.  */
  37.  
  38. #include "mstlib.h"
  39. #include "mstpub.h"
  40.  
  41. #ifdef atarist
  42. long _stksize = -1L;        /* what does this do? */
  43. #endif
  44. main(argc, argv)
  45. int    argc;
  46. char     **argv;
  47. {
  48.   smalltalkArgs(argc, argv);
  49.   initSmalltalk();
  50.   topLevelLoop();
  51.  
  52.   exit(0);
  53. }
  54.  
  55. testMain(argc, argv)
  56. int    argc;
  57. char     **argv;
  58. {
  59.   char    *str;
  60.   OOP    o;
  61.  
  62. #ifdef out_temp /* Sat Feb  8 17:08:18 1992 */
  63. /**/  o = msgEval("'foo on you' printNl!");
  64. /**/  msgSendf(nil, "%s %o inspect", o);
  65. #endif /* out_temp Sat Feb  8 17:08:18 1992 */
  66. #ifdef temp /* Thu Jan  2 22:23:07 1992 */
  67. /**/
  68. /**/  smalltalkArgs(argc, argv);
  69. /**/  initSmalltalk();
  70. /**/
  71. /**/  msgSendf(nil, "%s %s printNl", "This is a test");
  72. /**/  msgSendf(&str, "%s %s , %s", "This is a test", " ok?");
  73. /**/  msgSendf(nil, "%s %s printNl", str);
  74. #endif /* temp Thu Jan  2 22:23:07 1992 */
  75.   exit(0);
  76. }
  77.  
  78.